Say '***ERROR: "'||ascchar||'"is not allowed as forcing ASCII character.'
Call Quit
End
If ascchar ~= "" Then Say 'Force ASCII char: '||ascchar
End
Else Say 'Force ASCII char : None'
End
When type = "***AUTOCHK" Then Do
autochk = 0
Say "Option enabled : The sum-file will be added commands, making it an"
Say " AmigaDos script which will automatically check whether"
Say " the files have been tampered, including itself. Note"
Say " that this is a MAJOR security hole, read docs for more"
Say " info."
If Open('chkconf', "ENV:SignArchOpts", 'R') Then Do
If Upper(ReadLn('chkconf')) = "DO_NOT_ASK_FOR_CONFIRMATION_OF_AUTOCHK" Then Do
autochk = 1
End
End
If autochk = 0 Then Do
AddLib("rexxreqtools.library", 0, -30, 0)
If Show("Libraries","rexxreqtools.library") Then Do
rtresult = rtezrequest("Do you really wish to add a self-checking script? This" || '0A'X || "is a MAJOR security hole - read the docs!","_Yes|_No", "SignArch Warning", "rtez_defaultresponse=0")
If rtresult = 1 Then autochk = 1
End
Else Do
Say ""
Say "Do you really wish to add a self-checking script? This"
Options Prompt "is a MAJOR security hole - read the docs! (y/N)"
Pull result
If Upper(Strip(result)) = "Y" Then autochk = 1
End
End
If autochk = 0 Then Say "***NOTE: Self-checking script will NOT be added."
End
When type = "***BANNERS" Then Do
If data ~= "" Then banner.bannum = '"'||Right(lineread, Length(lineread)-11)||'"'